(casify_object): Return OBJ unchanged if not real char.

diff --git a/src/casefiddle.c b/src/casefiddle.c
index ae60d2c8dd563d061203f904540520f2127c01a9..6387c4bc845374ae5538fb48bbb27c99be6f2c4e 100644 (file)
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -52,6 +52,12 @@ casify_object (flag, obj)
                          | CHAR_SHIFT | CHAR_CTL | CHAR_META);
          int flags = XINT (obj) & flagbits;
 
+         /* If the character has higher bits set
+            above the flags, return it unchanged.
+            It is not a real character.  */
+         if ((unsigned) XFASTINT (obj) > (unsigned) flagbits)
+           return obj;
+
          c = DOWNCASE (XFASTINT (obj) & ~flagbits);
          if (inword)
            XSETFASTINT (obj, c | flags);